home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCsiod / SIOD / Char.scm next >
Text File  |  1993-07-09  |  996b  |  40 lines
  1. (define (char<? x y)
  2.         (< (char-cmp x y) 0))   
  3.      
  4. (define (char>? x y)
  5.         (> (char-cmp x y) 0))
  6.                    
  7. (define (char=? x y)
  8.         (= (char-cmp x y) 0))
  9.  
  10. (define (char<=? x y)
  11.         (<= (char-cmp x y) 0))
  12.  
  13. (define (char>=? x y)
  14.         (>= (char-cmp x y) 0))
  15.  
  16. (define (char-ci<? x y)
  17.         (< (char-cmp (char-downcase x) (char-downcase y)) 0))   
  18.      
  19. (define (char-ci>? x y)
  20.         (> (char-cmp (char-downcase x) (char-downcase y)) 0))   
  21.      
  22. (define (char-ci=? x y)
  23.         (= (char-cmp (char-downcase x) (char-downcase y)) 0))   
  24.      
  25. (define (char-ci<=? x y)
  26.         (<= (char-cmp (char-downcase x) (char-downcase y)) 0))   
  27.      
  28. (define (char-ci>=? x y)
  29.         (>= (char-cmp (char-downcase x) (char-downcase y)) 0))   
  30.      
  31. (define (char-upper-case? x)
  32.         (and (char>=? x #\A) (char<=? x #\Z)))
  33.  
  34. (define (char-lower-case? x)
  35.         (and (char>=? x #\a) (char<=? x #\z)))
  36.  
  37. (define (char-digit? x)
  38.         (and (char>=? x #\0) (char<=? x #\9)))
  39.  
  40.